home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00251_Script_bar comp pop annual < prev    next >
Text File  |  1999-03-07  |  2KB  |  67 lines
  1. property thePopLocn, popSpriten, popNamen, mySpriten, faraway, fieldObjn
  2. global currentChartName, popbgSpriten
  3.  
  4. on new me
  5.   set mySpriten = the spriteNum of me
  6.   set popSpriten = mySpriten + 1
  7.   set popbgSpriten = mySpriten - 3
  8.   set right = the right of sprite (mySpriten - 2)
  9.   set top = the top of sprite (mySpriten -2)
  10.   set thePopLocn = point(right, top)
  11.   set popNamen = "mdl_field"
  12.   
  13.   puppetSprite popSpriten, true  
  14.   set faraway = point(-1000, -1000)
  15.   set the loc of sprite popSpriten = faraway
  16.   
  17.   return me
  18. end
  19.  
  20. on register me, theObj
  21.   set fieldObjn = theObj
  22. end 
  23.  
  24.  
  25. on mouseDown me
  26.   set the member of sprite popSpriten = member popNamen
  27.   set the loc of sprite popSpriten = thePopLocn
  28.   set the member of sprite popbgSpriten = member popNamen
  29.   set the loc of sprite popbgSpriten = thePopLocn
  30.   -- put "popped - " & thepoploc
  31.   updateStage
  32.   repeat while the stillDown
  33.     checkIfInsideh fieldObjn
  34.   end repeat
  35.   
  36.   set the loc of sprite popSpriten = faraway
  37.   set the loc of sprite popbgSpriten = faraway
  38.   
  39.   
  40.   set name = getPlaneNameh(fieldObjn)
  41.   if name = "" then 
  42.     nothing
  43.   else
  44.     if name = "NONE" then 
  45.       set name = "No Competitor"
  46.       set the text of field "displane" = name
  47.       set the text of field "acplanename" = name
  48.       go to "annual costs"
  49.     else
  50.       set the text of field "displane" = name
  51.       set the text of field "acplanename" = name
  52.       getmainbars(name, 1)
  53.       getannualcostscomp
  54.     end if
  55.   end if
  56.   
  57.   set the loc of sprite popSpriten = faraway
  58.   set the loc of sprite popbgSpriten = faraway
  59.   
  60.   updateStage
  61. end
  62.  
  63. on mouseUp me
  64.   
  65.   nothing
  66. end 
  67.